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EDITORIAL 


Deux ans déjà ! JEDI fête ce mois-ci son second anni- 
versaire. Ceci n'aurait pas été possible s'il n'existait 
pas un réel intérêt parmi vous pour une programmation struc- 
turée et l'emploi de langages autres que le BASIC. De plus, 
il devenait indispensable de créer une revue qui traite 
d'autres choses que de “casses-briques" où de bancs d'essais 
de micros. C'est de cette volonté que JEDI est né. Depuis, 
il a évolué vers la création d'outils logiciels suffisamment 
portables pour être utilisables par chacun d'entre vous. 

Ainsi en est-il à l'heure actuelle. Ainsi en sera- 
t-il de plus en plus dans le futur. JEDI n'est pas qu'une 
simple revue. Son principe de diffusion répond à des impéra- 
tifs très précis. Ne concerner que les personnes réellement 
intéressées par l'informatique (sus aux badauds ‘!!) et 
rester to-ta-le-ment indépendants. Deux ans d'existence 
sans autre soutien financier que le montant des adhésions, 
qui peut se targuer d'une telle performance ? 

Mais JEDI n'est devenu ceci que grâce à vous tous, 
à vous qui le faites connaître, à vous qui nous envoyez 
vos réalisations, à vous qui l'appréciez et qui savez nous 
le dire. 

Encore une fois, et au nom de toute l'équipe de rédac- 
tion, un grand merci !!! 
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L.P.B. NEUVIEME LECON Christian SCHERER 


Un compilateur musical portable en LPB 


Notre précédente série consacrée au L.P.B. (Langage Pseudo-Basic) a pu 
donner à penser à d'aucuns que ce langage était plus spécialement destiné aux 


applications graphiques. 


En fait il n'en est rien, et, pour pour bien montrer la vocation 
universelle de cet outil, nous traiterons maintenant de la composition 
musicale, en choisissant le matériel THOMSON comme support de notre exemple car 
il s'agit d'un matériel maintenant largement répandu dans notre pays. 


On objectera peut-être 


- que la composition musicale ne nécessite pas des traitements aussi 
complexes et surtout aussi rapides que l'animation d'image. 

- qu'il existe déjà, dans le BASIC MICROSOFT livré avec ces machines, 
une instruction PLAY qui réalise déjà toutes les fonctions musicales que nous 


allons compiler. : 
- que les posibilites musicales offertes par le constructeur national 


ne sont peut-être pas des plus extraordinaires. 


Nous braverons par avance toutes ces objections, avec la foi et la 
certitude que nous donnent nos propres arguments : 


- nous voulons justement montrer que le langage L.P.B. permet 
d'éviter, après compilation, de s'affranchir totalement du BASIC. 

- nous voulons illustrer la structure du L.P.B. par un exemple facile à 
comprendre par ceux qui ne sont pas encore familiers avec ce langage. 

- partant de cet exemple, on pourra ensuite plus facilement migrer le 
compilateur musical vers des machines telles que COMMODORE et AMSTRAD, qui ne 
disposent pas naturellement des bonnes primitives, alors que leurs possibilités 
techniques sont excellentes. 

- enfin, nous sommes fiers de montrer le dernier né de la famille des 
compiliateurs LPB, dans lequel on a introduit de nouvelles notions telles que 
les procédures et les passages de paramètres que l'on ne trouve que dans des 
langages très évolués (L.S.E., SUPERBASIC et la famille PASCAL). 


2. Un programe versatile. 


Sans doute à l'intention des programmeurs astucieux, le constructeur 
national, déjà cité, a su ménager entre les familles M05 et TO7 (nous passerons 
ici sous silence le cas du T09) de subtiles différences. Pour pouvoir s'adpater 
automatiquemment à l'une et l'autre des familles, nos programmes doivent 
comporter des..bascules internes (on dit en anglais des switches"). Ces 
bascules peuvent être manoeuvrées manuellement, soit au moment de la 
compilation, soit au moment de l'exécution. Dans le meilleur des cas, un 
logiciel "bien élevé" sera capable de reconnaître tout seul la machine sur 
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laquelle il est en train de fonctionner, plutôt que de le demander stupidement 
à l'utilisateur. 


Les machines THOMSON possèdent un programme résident, appelé 
"moniteur", qui joue un rôle analogue au "kernal'" des COMMODORE, ou au BIOS 
(Basic Input-Output System) des machines plus évoluées. 


Ce moniteur contient un ensemble de fonctionnalités indispensables pour 
gérer commodément les communications avec le clavier, l'écran, le générateur de 
sons, et les autres périphériques. 


Sur TOY, on accède à ces "primitives" à travers un vecteur de 
branchement situé à l'adresse hexadécimale E800. Sur M05, le même résultat est 
obtenu grâce à l'instruction-machine SWI suivie d'un octet caractéristique de 
la primitive demandée. Notre exemple LPB montre comment reconstituer sur un MO5 
un vecteur de SWI qui simule le cas du TO7. 


De même, pour varier, les deux machines n'implantent pas aux mêmes 


adresses les variables de travail du moniteur, et notre programme devra donc en 
tenir compte. Voici la table de correspondance 


MO5 TO7 Variable Signification 

2039 6031 TEMPO Tempo des séquences musicales 
203B 6033 DUREE Durée des notes 

203E 6036 OCTAVE Sélection d'octave 

203E 6035 TIMBRE Sélection de timbre 


—————"——"— 2" mm me me mn nes me de dat te ie ne on 0e en en ou 0 ee Ge me mt Me (Ou mi ou eue one eue né me Gt dé de une me Mit ed den ee ue mn œun où ane ne ete = cn me on mas me eu ue en en ent eue eu ee ee ee mue me come 


em)". 2 70 mn me mu ne œn mie me des des ou eu don mme om om ou con ou 


Ayant reconnu les caractéristiques de notre machine, et tout en gardant 
à l'esprit que les autres machines-cibles (COMMODORE, AMSTRAD, MSX, SPECTRUM, 
IBM-PC, etc) ont des caractéristiques différentes, il nous faut définir un 
langage-source musical aussi universel que possible. 


Parmi les machines étudiées, quelques-unes seulement possèdent 
d'origine un tel langage musical évolué, sous forme d'une extension du BASIC 
MICROSOFT livré avec la machine . Nous écarterons une première solution, qui 
utilise sur MSX et IBM-PC la notation musicale anglo-saxonne (A, B, C, ...) 
pour lui préférer la seconde, propre au matériel THOMSON, plus proche de nos 
habitudes nationales : DO, RE, MT SSL ete «x 


Nous ne commettrons pas l'erreur d'inventer un troisième langage 
musical, alors que notre hexagone est déjà bien trop petit pour rentabiliser à 
lui seul des développements logiciels lourds. 


Dès lors, la syntaxe source est fixée et nous renvoie à la 
documentation d'accompagnement des matériels THOMSON 


Une note est caractérisée par 
- sa position dans la gamme (DO RE MI FA SO LA SI) 


- une altération éventuelle : (b pour un bémol, # pour un dièse) 
- une durée relative : L12 pour une noire, L24 pour une blanche, etc 


Gosearmwmiriiigne 
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: - un timbre : AO pour une onde sinusoïdale, A1, A2 ... pour des 
altérations différentes 


S'y ajoutent : 
- la pause : PF. 
- le tempo général : Ti, T2 ... T255 : pour l'ensemble des notes 


Avec une telle notation, le classique "Au clair de la lune" devient 
aussi clair que : 


DATA  AOT30L6SOSOSOLAL12SILAL6SOSILALAL24S0 


DATA L6SOSOSOLAL12SILAL6SOSILALAL24S0 
DATA LG6LALALALAL12MIMILELASOFA MIL2URE 
DATA L6SOSOSOLAL12SILAL6SOSILALAL24S0 


DATA O 


H, L'interpréteur musical. 


La conversion entre le langage musical source et le langage interne du 
moniteur s'effectue par l'intermédiaire d'un petit automate de reconnaissance 
syntaxique écrit en LPB, directement inspiré de la solution MICROSOFT, qui ne 
présente pas de difficulté particulière. 


| Dans le cas du langage LPB sur THOMSON, on dispose maintenant de la 
notion de procédure, avec passage de paramètres (par valeur exclusivement), qui 
permet une programmation mieux structurée et donc plus facile à lire. 


La transposition aux autres micro-ordinateurs ne soulève pas de 
difficulté insurmontable, dans les limites bien sûr, des possibilités 
d'expression musicale propres à chacun d'entre eux. 


Nous vous invitons à nous faire part de vos expériences propres par 
l'intermédiaire du journal, qui transmettra, et sommes prêts à publier, si 
nécessaire, les variantes adaptées aux autres machines citées. 


200 REN vousensasmemmans INTERPRETEUT MUSICAL/SOQUACE LFB mommm 
201: 


202 "DEFB BASE S8YN &KHAO00,D SYN &KHDFOO 1REM TO7 NRDOS 

204 DEFB BASE GYN &H6000,D BYN &HSFOO SREM NOS NRDOS 

207 ORG BASE 

210 REM mennmmmunmmummmmx CARACTERISTIQUES T07 œuusmewmumaseume 

Zit re 

212 "DEFW USERAF SYN &H402D, TEMPO BYN &H6OS1, DUREE SYN &KH6OSS, OCTAVE BSYN &H40YS6 


213 "DEFB TIMBRE SYN &H603%, FORME SYN &H6038, PIA BVN LHE7CS, ECRAN 8YN &H4000, ATT BYN &H4C 
219 « 


220 REM ==mmunmmsmmssuse CARACTERISTIQUES MOS menumanmaamennmen 

22t 5 

222 DEFW USERAF BYN &H2070, TEMPO BYN &H2039, DUREE SYN &RHZOSR, OQCTAVE SYN &hH203E 

223 DEFB TIMBRE 8YN &H203SE, FORME BYN &H2029, PIA SYN &HA7CO, ECRAN BYN &HO, ATT &YN &H70 


227 

2:30 RÆEUM oae 0 2 Ue m8 08 08 48 M9 08 2 OU 0 Le DU ON Au M9 HU A D GS JS ur OÙ UE UN UN D AN OR 8 AD EG A ON AE 
231: 

232 GQOTO MAIN 

233 : 

241 "TEMPO = 1..238 

242 "DUREE = 1..96 

243 "TINBRE = 0..299 

244 "OCTAVE = 16,8,4,2,1 

243 "FORME "= -8..+13 Coulaur des affichages graphiques 
291€ 


Sé65 CHUNK DEFB BYTE 

364 CHUNK DEFW WORD 

343 INSPECT U 

S69 "DEFB K GBYN &HEB0O 1 REM TQ07 Moniteur 
370 DEFB H(O) 1 REM MOSS Moniteur 
371 SWI:DATA &HB0O,0 


372 BWIIDATA 8&H62,0 1REM PUTCS = H(S} 
375 SHIIDATA &KHGA,O 1REM GETCS = Hé} 
374 SWUILDATA LHOC,O 1REM KTETS = H(9) 
375 SWIrDATA &RHBGE,O 1REM DRANS = H(12) 
376 BWISDATA &H90,0 1REN PLOTS = H(15) 
377 BNISDATA RHA4,0 1REM RSCOS = H(18) 
378 BSWUIe DATA &HAO,O 6REN K7C08 = H(21) 
379 GWNII DATA KH98,0 1REM BETLS = H(24) 
eo SUIL DATA &H96,0 1REM LPINS = H(27) 
361 SNIeDATA RHYE,O 2 REM NOTES « H(30) 
362 BWNILDATA &H94,0 FRENM SETPS = H(3S) 
395 BWNIIDATA &HVA,O 1REN GETSS » H(36) 
384 SMIUIDATA &KH9SC,O 1REM JOYSS = H(3S9) 


425 1 ceci 
450 PROCEDURE SQUTCHAR(B) 


4553 GOTO H(3S) 
t 
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C: 
700 PROCEDURE SNOTE (B) 


60TO H(30) 


REM vounenusenemune PLAY nunmenunammuuemmm“… 
4 
CHUNK DEFB FILL,LIMLON, LIMHIGHIDEFW ADDRESS 
DEFB TEMPOLSB SYN TEMPO/LSB 
DEFB DUREELSS SYN OUREE/LSS 
DEFR QCTAVELSB fYN OCTAVE/LSB 
Ê 
DEFD BOUNDCHARS (0) 
DATA "T",1,295,8TENPOLES 
DATA “A°",0,2933,0TIMBRE 
DATA °L°,1, 946,28DUREELSD 
DATA *“0",1, S,80CTAVELSB 
: 
DEFR NOTES (0) 
DATA "ODLERSIMSAFSOBS AL: 18<" 
Ê 
DEFB QCTAVES(0) 
DATA 14,9,4,2,1 
: 
LABEL FCERROR 
BQUTCHAR (7) :B0T0O FCERROR 
. 
PROCÉDURE CHECKDISIT(A) « REM GBIVING FLC 
IF Ad2="0* THEN AmA-&RHSA-&RHCS 
RETURN 
: 
PROCEDURE BCANINT(Y) BIVINS DB 
CHECKDIBIT((Y+))a1F FLO THEN FCERROR ELSE B=9 
LABEL LOOPDIBIT 
AmA-"O": PUSH ArAw10 
AB=A HMUL BIIF A<>0 THEN FCERROR 
BuB+(8+)31F FLO THEN FCERROR 
CHECKDISIT((Y+))41F NOT FLC THEN LOOPDIOIT 
Yæv-1 
RETURN 
t 
PROCEDURE PLAYNOTE (Y) 


Dex /20Am(VH)IRIF Am" THEN BmB+l ELGSE IF A=°b" THEN BeBD-1 ELSE YeV-1 
IF BCæ&HSO THEN BelHSC 
SNOTE (B) 
RETURN 
t 
PROCEDURE SCANHUS (Y) 
Am CY+) 
IF Au*P" THEN SNOTE (&H3S0) à RETURN 
BmAIAmCV+)3IF « THEN FCERROR 
FOR X=9NOTES STEP 3 UNTIL ®NOTES (21) 
IF AB=(X) THEN PLAYNOTE (Y) 1 RETURN 
NEXT X 
: 
FOR X*2GOUNDCHARS STEP % UNTIL OSOUNDCHARS (20) 
IF B=CX) THEN 1391 
NEXT X490T0 FCERROR 
BeSCANINT(Y-1) 
REM IF B<X/LIMLON OR B>X/LIMHIGH THEN FCERROR 
IF X=9GOUNDCHARS (15) THEN U=BOCTAVES (-1) 1 Beu/B 
CX/ADDRESS1=B 
RETURN 
Li 
PROCEDURE SPLAY(Y) 
Am (YI)&IFCPTHEN SCANAMUS (Y) :90T0 BPLAY 
0] 
LABEL MARJOLAINE 


DATA “AOTIS04L12D0L4D0L1260L480L12FAL6BOLISMIb" 
DATA "L12MIDLéREDOREMIDbLIZ2RELSDOL120S81L680" 
DATA “04L12D0L4D0OL1280L680L12FAL&SOL18MIb" 
DATA "CA4L18FABOLSREMIDREL18D0*,0 

3 
LABEL MAIN 

GPLAY (9MARJIGLAINE ) 
END MAIN 
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FORTH EXPERT-2: Application au bâtiment 


AMALYSE ET PROGRAMMATION 


experts sont des 


Programmes dans 1la catéSorie de 


1’"Intelligence Artificielle".: : terme 
whsequieux vis-è-vis d’une machine et d’un 
logiciel ui m'a d'intelligent due celle 
qu'on veut bien lui transmettre, Il serait 
Plus juste de Parler ici de "Riisonrnement 
Artificiel" Fuisque ces logiciels: er 
aeneral suivent une logique de raisonnement 
brute. 


QU* EST-CE QU'UN SYSTEME EXPERT? 

Maintes fois decrits dans ces Pa9es 
tvoir Îles articles de MM LANG. TOUAJ et 
RAFORTHO, sinsi que l’article sur EXPERT-2 
du  arouPe INTELLIGENCE ARTIFICIELLE, JEDI No 
12), un système exPert est une suite de 
règles ne suivant Pas Un al9orithme défini, 
ces règles ProPosées à l'utilisateur se 
combinent Pour tenter de Parvenir à une 
hypothèse finale. 

LA PEGLE est une suite d'assertions 
qui aboutissent soit à une ou des 


conclusions. soit à une hyPothèse finale. 


L'ASSERTION est une 
primitive qui, soumise à l'utilisateur, 
prendre une des valeurs VRAI où FAUX. 

LA CONCLUSION est une affirmation 
Qlobale qui Prend la valeur VRAI si toutes 
les assertions Précédentes sont déclarées 
VRAI, sinon elle Prend la valeur FAUX. Cette 
conclusion, lorsqau’ elle est Prise comme 
assertion dans une règle qui suit, Prendra 
la vateur Y ou F Prédétenminée Précédemment. 

L'HYPOTHESE est 14 conclusion 
finale à laquelle le système  exPert 


affirmation 
Peut 


aboutirait si toutes les assertions de cette 
dernière rè9le ont été données comme W,.. 


QU'EST-CE QU’ UNE REGLE? 
: Une regle sst un système logique 
d'assertions et de conclusions, comme nous 
l'avons dit Plus haut. Ces assertions et ces 
conclusions sont liées entre elles Par des 
OPérateurs 1o9iques. Ces opérateurs sont! 
SI forme interrogative dont Ta 
valeur V ou F n’est Pas Prédéfinie. 
U , ET : sant commentaires. 
ALORS : relation d’imPlication. 
NON : négation d’une assertion ou 
d'une conclusion. 
Prenons un Petit exemple de Programme: 
"Si 1a terres est sèche et que Je n’arrose 
Pas, les Plantes vont flétrir. Mon Jardin ve 
sera Pas besau". 
Nous avons dans cet exemple: 
2 assertions: La terre est sèche 
J'arrose 
1 conclusion: Les Plantes vont flétrir 
di hypothèse : Mon jardin ne sera Pas beau 
4 opérateurs logiques: SI, ET, ALORS, NON, 
Ecrivons directement es règles qui s’en 
dégagent: 


(Règle 1) 
SI la terre est sèche 

ET SI NON j’arrose 

ALORS les Plañtes vont flétrir 


CRèSle 2) 
SI les Plantes vont flétrir 
ALORS HYPOTHESE mon Jardin ne sera 


pas beau 


CRèole 3) 
SI NON les Plantes vont flétrir 
ALORS HYPOTHESE mon Jardin sera beau 


Deux Points sont à noter dans ce 
Petit Programme. D'abord 1l’hyPothèse de 1a 
règle 3 8se désañe implicitement de 14 Phrase 
de départ, et qu'elle est vrai dans tous les 
cas. (Sauf si à force d’arroser, mes Plantes 
Pourrissent, d'accord... D'autre Part il 
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est bien évident Que si une règle ne Prouve 
Pas l'haPothèse. elle ne Prouve Pas non Plus 
son contraire, Il me faut Pas oublier que 
l'opération ALORS est 13 relation "implique" 
dé =} }, La table de vérité de cette relation 
est la suivante: 


AR! E ! AE 
LEA 1 1 
161 9 
D'1! 7? 
2!'8! 7 


C'est pourquoi la règle 3 a été ajoutée 
expressément, Si la règle 3 n°’ existait Pas: 
le système aurait répondu MlJe ne s3is Pas 
conclure" ou quelque chose d’aPProchant. 


COMMENT ANALYSER UN PROBLEME? 

L'analyse, Comme en Programmation 
algorithmique normale, est essentielle: 
d'abord Pour la raPidité de recherche dans 
le système, ensuite Pour la comPrèhension 
des Phases de recherche Pour l'utilisateur. 
Si l’on commence Par taPer Un Programme 
directement "Pour voir si Sa marche" on est 
certain d'aboutir à des imPasses où à des 
imPossibilités, Il est donc imPératif de se 


donner quelques règles simples pour 
commencer à Prosrammer, 

-»1 Partir des HYPOTHESES. TOUTES les 
HYPOTHESES. 


29 Faire un tableau 9énéral de toutes 
les ASSERTIONS aboutissant à chaîue hyPothese 


33 Sérier les assertions en GROUPES 
GENERAUX. 

4) Diviser équitablement en PARTIES 
LOGIQUES Îles hypothèses Par rapport aux 
groupes 


5) Former chaîue REGLE en  COMMENTANT 
chaîue fois que Possible. 

CAS CONCRET: Pour concrétiser ce 
cheminement de Pensées, essayons d'effectuer 
un expert en pathologie du batiment 
concernant, Plus Précisément l'humidité dans 
les constructions (chacun sa spécialité). 


Nous utiliserons, Pour celà, Un système 
exPert implanté en FORTH, assez rustique 
mais suffisant dans ce cas! EXPERT 2 
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-)1) Partir 
non Pas des 
remèdes à 
causes : 


des HYPOTHESES, c’est-à-dire 
causes d'humidité mais les 
aPPorter. Faisons la liste des 


MaPPe PFhréatique 

Eau de ruissellement à terre 
Pluie battante 

Condensation intérieure 
Canalisation intérieure qui fuit 
Toiture 

Goutières 


NRA 


Toute forme d'accident est exclue, bien 
gatendui. Ces C4as sont plutot de la 
compétence d'un sxFert...d'3ssurances, 

Cette liste va nous fournir les huPothèses 
de départ: 

Î Drain Périphérique 

è CouPure hydraulique des mafonneries 

3 Réfection des farides extérieures 

4 Isolation thermique et ventilation 


des locaux 

$ Réfection des installations de 
Plomberie ou de chauffage 

6 Réfection de 13 toiture 

7 Nettoyage ou réfection des chéneaux 
et descentes Pluviales 


ie 


bar Mr PREMESNIL 


-)2) Faire un TABLEAU DES  ASSERTIONS, 


regrouPant les conséquences Possibles de. 
Chaîue Cause, et noter la où les hsPothèses 
concernées. Le tableau 1 reprend le majeur 


Partie des conséquences. 


23) Sérier en GROUPES  GENERAUX les 
assertions Par affinités ou Par localisation 
Ccomme dans cet exemPleÿ afin d'en tirer des 
conclusions Sénérales qui sauront Pour but de 
dissocier le Programme et ainsi de Permettre 
la recherche raide des hyPothèses, 

Le tableau 2 done un exemple de 
9rouPenent Par localisation dans le batiment. 


-»4) DIVISER en Partie logiques LES 
HYPOTHESES en partant du tableau 2. 

Bien sur, 11 eut été Possible d'effectuer 

directement le Programme à Partir du tableau 
1, mais la complexité des rèSles ne Pourrait 
fournir une rapidité de recherche mi au 
loSiciel ni à l'utilisateur, 
L'analyse du tableau nous révèle Que Pour la 
localisation 1, les huPothèses Hi et H2 sont 
Prises en comPte ai cette localisation est 
vraie. et H3 à H7 si elle est fausse. 

La localisation 3 Partage les hypothèses 
de Cette manière: H1, H4, HS et HG sont 
Prises en comPte si V, H2, Ha, H7 si F. 

Les HhuPothésés £ont donc Pirtigées en deux 
Parties équitables à Partir de la 
localisation 3 #&t l’arbre de recherches en 
sera réduit d'autant. 


-)5) Former chadue REGLE en COMMENTANT 31 
Possible: nous n'avons Pas Parlé des 
commentaires. Il est bien duident que dans 
un Programme source Classique, le 
commentaire 3ide non seulement le 
ProSrammeur À retrouver ou à se souvenir de 
Chaâue Partie de son Programme mais. de Plus 
les lecteurs dudit Programme auront une idée 
du PrinciPe et du fonctionnement de 88 
structure, 

Dans le logiciel smPloyé CEXPERT-25, les 
commentaires ont Une utilité supplémentaire! 
à l'’aPPlel de l'utilisateur lors de la 
Proposition d'une assertion: trois 
Possibilité de choix sont offertes: 

“QUI, cette assertion est vraie 

NOM. cette assertion est fausse 

POURQUOI cette rb9le est-elle 

soumise à l'utilisateur 

et _ Ce Pouriuoi renvoie à l'écran Un PRRCE 
QUE inclus dans la règle qui sert à 
exPliciter les ascertions emPloyéss. De Plus 
toutes Îles gssertions, les conclusions et 
les hyPothèses de 13 règle sont transmises à 
l'écran à la suite d’un commentaire du type! 
“Je tente de Prouver..." 

IT est donc utile, sinon indispensable 
d’'exPliciter Csuccintement mais 
efficacement) une règle. 

Le Choix du commentaire ne doit Pas se 
borner à l’action Que le logiciel tente 
d'effectuer, mais bien à l'explication du 
Choix des assertions et des huPothèses, à 
leur cause st à leur Conséquence, er 
laissant de coté l'outil Pour ne se 
Consacrer Uniquement qu'au sujet traité. 

C’est Pourquoi, lorsque l’on Part des 
hyPothèses, 14 Premiére liste des CIUSeS 
d'humidité devrait servir à alimenter les 
Commentaires sur les asertions concernées. 

Pour se résumer: les causes seront les 
Commentaires, les conséquences seront les 
issertions et les remèdes seront les 
hyPothèses. 

Passons à 13 FroSrammation ProPrement dite, 


€ REGLE QG : 
SI Humidité À l’intérieur du batiment 
ALORS Eaux intérieures 


Cette conclusion regroure les hsPothèses H1: 
Hé, HS et H6, 
La règle contraire: 


{ REGLE 1 ) 
SIHOH Humidité à l’intérieur du batiment 
ALORS Eaux exterieures 


de  teitz effectués à 


Celle-ci resroupe les hypothèses H2, H2, H7. 

Nous voilà en Présence de deux arouPes de 
Phénomènes distincts. En fait Ces deux 
rèsles sont suPerfétatoires mais renforcent 


bien Îles conclusions Pour la suite des. 


règles. 

Une règle suPPlémentaire découle 
immédiatement du tableau 2 et conduit à une 
hyPothèse directe: les lücalisations 1 et 3 
amènent H1, 


€ REGLE 2 ) 
SI Eaux intérieures 
ET Humidité dans Partie la Plus basse du 
batiment 
PARCEQUE L'’humidité lent de la 
Phréatique Par caPillarité 
ALORSACTION DRAIH 


naPPle 


Cette forme de conclusion Propre À EXPERT-2 
sera déveloPlée ultérieurement. 

La règles suivante Parait curieuse EAU 
Premier abord, mais en fait. les asszertions 
Aui La compose ne sont Pas contradictoires. 
Cette rèale délimite les deux hyPothèses Hi 
et Hd et s’énnonce: 

Si l'humidité est à l’intérieur qu 
batiment sauf sur les farades, 

Et si l'humidité set situé sur la façade 

Alors, ..l’humidité sst partout! 

L'assertion Qui suivra Prendra on compte 12 
locslisation du batiment et déterminers le 
Choix sur l’une des huPothèsezs Hi Cut Hd, 


{ REGLE 3 
SI Eaux intérieures 
ET Humidité sur façades intérieur cu 
extérieur) 
ALORS Eaux répartigs 


Eten combinaison avec la 
oktenons l’huPothèse H4. 


« REGLE 4 » 
SI Esux répartiss 
ETNOH humidité davs la 
basse du batiment 
PARCEQUE L'humidité Provient 
“aise concePtion intérieure 


ALORSACT ION IEQL-VENTIL 


Partis la Plus 


d’une 


de la Programmation nous avons: 


& intérieures > H1-H4-HS-Hé 
z exterieures } H2-H3-H7 
2 X réFarties » H1-H4 
ù ATH > Hi 
* ISOL-VENTIL > Hd 
Févensns À l'opérateur-mustère 


QU'EST-CE QUE "ALORSACTIOH" 7 

La Puissance du losiciel EXPERT-2 
£gst toute contenue dans les suFer-oPérateurs 
finissant Par -ACTIOH. 


SIACTIOH SINOHACTION  ETSIACTIOH 
ETHOMACTION RLORSACTION  ETALORSACTIOH 
PARCEGUERCT 10H 


Ces opérateurs sont des aFFels À des 
SOUS-Programmeszs  FORTH Flacés avant les 
rèSles et qui Permettent, en les Plaçant 
dans les assertions, de Frévoir autant de 
calculs, tests, mosennes, ComParalsons et 
Commentaires Que le Programmeur le désire, 
La seule contrainte à resFecter. à Part 
l'obligation de ne Pas "planter!" le 
Froëramme. est de laisser sur la File de 
données un indicateur VChal > Cn’imPorte quel 
nombre sauf D) ou FCaux) (8) à la fin du 
SOU£-ProSramme. Cet indication Peut résulter 
de 4 l’intérigur au 
SOUS-ProSranme ou bien de l’action voulue du 
ProSrammeur, comme nous allons le voir à la 
suite du Programme, 


u o Z mai 1I86 


JF; 


7 


B TE ne 24 mar 


APreszs cette disgression, retournons à nos 
règles et OCCUPOrTS-NOUS maintenant du 
tablesu 1. Les assertions qui s’en déssaent 
ns sont Pas liées les unes aux autres. Il 
nous aurait fallu un opérateur d'union "OU" 
Pour les Prendre er compte dans leur 
globalité. Malhereusement, le concePteur du 
lodiciel EXPERT-2 ne l'a Pas Prévu. Il 
faudra donc désañer des rèSles commures en 
tenant comPte du tableau 2 des localisations. 


C REGLE 5 
SI Soit froid et humide 
ET Eaux intérieures 
ET Partie basse du batiment 
PARCEQUE l'humidité de la naPPe Phréatique 
remonte dans le sol 
ALORSACTION DRAIN 


 REGLE 6 ) 
SI Intérieur façade humide 
ETNON Partie basse du batiment 
ET Humidité localisée 
PARCEQUE L'eau de Pluie s’infiltre dans la 


façade 
ALORSACTION FRCADE 


( REGLE 7 ) 
SINON Eaux reParties 
ET Interieur des facades humides 
RLORSACTION COUPURE 


Et ainsi 
assertions. 


de suite Jusqu'à éPilusement dea 


( REGLE 8 ) 
SIMON Eaux réparties 
ET Revetement mural dégradé 
ALORSACTION COUPURE 


( REGLE 9 ) 
SI Eaux réparties 
ET Revetement mural déoradé 
ALORSACTION DRAIN 


( REGLE 198 ) 
SI Humidite en Partis haute du batiment 
ET Interieur des fafades humides 
ALORSACTIQON CHEHERUX 


num mn anne nnnnnnuuss 


s'il 
cet article, 


Peut 


EN GUISE DE CONCLUSION 
4 avoir Une conclusion à 
c'est bien celle de dire qu'il 


Et ainsi de 
assertions, À 


suite 
part que 
très bien puisqu'il faut Placer 13 Partie 


Jusqu”/à ls fin des 
cela ne marche Pas 
règle qui contient 
une assertion qui aurait 
sa ProPre réPonse (cette manière de faire 
étant très Particulière d'EXPERT 2, vous 
Parlerons de la ProSrammation des autres 
systèmes, comme FORTHLOG, lors d’un Prochain 
numéros ). 

Donc il EURE fallu aFPeler une 
conclusion à la Place des sous-Pro9rammes 
Cyoir le listing du Programme Humidité). 
cette conclusion étant de la forme: 


ACTION dans la 
l'huPothèse, comme 


81 CaPPel) 
ETACTION fPpartie action) 

ALOPSHYP ChyPothèse) 

La Partie action rePrenant les explications 
nécessaires À l'expertise considérée, elle 
est automatiduement Jériérée Par 12 
conclusion SI aPPel) et se comPorte comme 
une assertion Aui contiendrait £a ProPre 
valeur VRAI et qui concluerait Par 1’ 
impression de l'hypothèse à sa suite, 


Un mot 
Puissance 
Pourraiernt 
aPrlication 
autre, en 
retours. 


encore Pour bien comprendre 14 
des opérateurs ...ACTION. Ces mots 

parfaitement "forgetter" une 

en cours et la remplacer Par une 
controlant 1l’arPel de la Pile de 
Cels veut dire qu'une application 
Comme ce système d'expertise d'humidité Peut 
très bien faire Partis intégrante d'u 
sistème Général de Pathologie de batiment. 
avcec £es différentes applications 
concernant Île Qros ceuvre Cfissurations. 
fondations etc. 7. les économies d'éneraie 
Cralculs de coefficients de déPerditions 
caloriîues avec les solutions générées 
automatiquement Par le sstème): la 
maintenance des équiPements chaudières. 
ascenseurs etc.) et l'exploitation ef 
général.Ces systèmes étant chaPeautés Par un 
métasustème servant d’aiguillanñe et auidant 
l'utilisateur vers ses Problèmes 
Particuliers. 

Une autre Possibilité offerte Par ces 
oPérateurs est le controle de bus recevant 
des informations extérieures (Possibilité 
d'écrire toute 1l’exPloitation d’une Sestion 
technique centralisée et FORTH et de 
manipuler Îles données refues et transmises 
Par le système exPert}, 


n'y aura Pas de conclusion de sitot Pour les 


systèmes experts, 
soient-ils. Il $e 
Pour ceux qui sont 


manipulation de ces 


Avec 


CCE TT 

î EVPERT EATIMEHT HUMICITE 

1 MF: 

< COPURE IHVERSE CLS 

3 Ë #3 de Fluie atteignent le ba: 
dl a ? ; infilirent Par 
ee Les D LUS 
Œ un QUE it de CourEr 

0 “cer les 

4 

19 se. 
1i CR IHVERSE : 
1a 
12 
14 
15 if 
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aussi 
PréPare 
intéressés Par la 
logiciels qui n’ont de 
loin Pas dit leur dernier mot. 


FORTH  JEDI 


AMSTRAD-SCHNEIDER 


rudimentaires 
de beaux Jours 


pour 


83/10/85 


ar ces eaux æsont d°" 
Les facadzs Par Partiss" 

en Place une feuille de plomb où de" 

murs Pour 4 placer des" 

eur toute la PeriFherie. soit Par" 
pracsde ionique emfPechant la migration" 


LE 
Le] 


ID MMA DT 
Q3 
na 


T4 

C°FERT BATIMENT HUMICITE 23/10/85 ) 

: FUITE INVERSE CLS 

." L'humidite ne Feut Frovenir Aue d’une fuite de canalisation" 
CR ." a l'interieur du batiment, Cela Feut Provenir aussi bien 
| du reseau d'eau que de celui du chauffage." 

CP," Les fuites les moins decelables sont, celles ou lez" 

alis ations sont novez dans les mits." 


FN 


Be 
De 


CE 


DLRNRES TE 


RO 
Re 


& 
Q 


RATIO NN A EI Te OT 


HE 
, 


& EXPERT BATIMENT HUMICITE LI ES à 


:  PEAIN IHVERSE CLE 
" La raPPe Fhreatique imfPreane les fondations" 

"+ ." 2t l'eau remontz Par cahillirite par les microfissures! 
CR." des murs et des 50187, Cette remcntee Peut atteindras" 
CR ." jusqu'a 99 metres de faute dans de ‘bonnes’ conditions," 
CR." Une facon d'eviter cela est de Placer un drain sous" 
CR .u le niveau des FAndAEI ons. et ainsi tarir localement la“ 
CR ." Onafre autour du batiment." 1 CR INVERSE : 


Î 
Î 

1 

1 

1 

15 55 

ECR # 26 
{ EXPERT EATIMENT HUMICITE 23/19/85 


IEOL-VEHTIL IHVERSE CLS 

." Le maniue d'isolation en Periode froide fait que" CR 

." la difference de tenferature interiguhe-exterjieure" CR 

." condense la aFeur sur los murs a l'interieur." CR 

." Le defaut de ventilation des locaux emPeche la vapeur" CR 

." d'asu do se denater des Frieces gt ainsi condense sur" CR 

"les murs, en Particulier les cuisines et les salles 4°" CR 

." eau. Cette mauvaise concePtion interieure se remedie Far:" CR 
Fou - L'isolation des combles (laine de verre qu roche" CE 


RE I de Didi NME RO) fe D 


14." - Lo domblage des Farrois exterieures CPanneaux" CR 
11,." sanduitche "CR 

LE se - L'extraction au La ventilatio! dans les locaux " CR 
Lin humides" 1 CF IHVEPSE à 

1 

15 5 

BCP H ©? 

A © EYPERT EATIMENT HUMICITE 22-10-85 

1 : CHEHEAUX IHVERSE CLS 

E A" Les cheneaux engortes essentiellement Par les feuilles" CR 
He" mcrt en automne doivent etre netouees au moins ung" CR 
4." Pois Far an et les d entes FPluviales verifises tous" CH 
5," les ci: 5 des qu'elles sont en mauvais etat" 
5 CR IMVERSE 1 

3 
1Ë 

11 
15 

12! 

14 

15 :© 

DCE # ES 

€ EXFERT EATIMNENT HUNICITE, 22-10-85 à 

1 TOITURE IHVERSE CLS 

2 ." Il Peut 4 avoir Plusieurs causes de detradation de la" CF 
Ge" toiture: Va vetusete, le vent, les nichses d’' 5ises " CR 
4." lez racordements aux souches Csolins, ruelesso detrsdes" CR 
FE..." ou ure incomPatibilite du tupe de couverture." CR 

& ," La nel la Plus raisonnable est de faire 3PPel 5" CF 
EC ne de l’art et de demander une sxfertise et un" CA 

4 CR THEBSE 1 : 

19 

11 cle 
12 

13 

11 
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f « EX 22/16/85 D 
: FACACE IHVERCSE CLS 
au pluies Lattanteszs Peuvent s'infiltrer dans les murs" CA 


a me fissures de la fasade si l’enduit où le crepl" CE 
." desrade. La solution est de revetir la facsde d'un" CR 


LU Les facades en Pierre de meuliere ne Peuvent etre" CR 


CE 


15 :S 


<< ie 


Lea 
Lu 


UE Ie DIN NINIRUONDeOT 


# 20 
( EXPERT EATINENT HUMIDITE -29/10/8E 
REGLES 

{ FEGLE 9 ? 

S1 HUMICITE A L’INTERIEUR DU EATIMENT 

ALORS EAUX INTERIEURES 


{ FREGLE 1 : 
SINON HUMIDITE A L'INTERIEUR CU EATIMENT 
ALOF£Z ERUX EXTERIEURES 


* REGLE 2 ? 

SI EAUX IHTERIEURES 

ET HUMICITE EN FAPTIE LA PLUS EASCE DU BATIMENT 
PRRSENE L'HUMIDITE YIENT CE LA HAPPE PHRERTIQUE 
ALORS 


18 


RE 


53 
C3 
ans | 


21 
{ EMPERT EATIMENT HUMICITE 23/14/85 à 
 FEGLE 3 ? : 
SI EAU INHTERIEURES 

: ET HUNIDITE SUR FACACES CIHT. ET EXT.) 

FLORS EAUX REPARTIES 


: FEÊGLE à à 

SI EAUX REPARTIES 

ETHOH HUMIDITE EUR FACALES CIHT, ET EXT.) 

PRPSEQUE L’'HUMICITE VIENT D'UHE MAUVAISE CONCEPTION INTERIEURE 
14 ALORS H4 

11 5€ 


tac 


RQ -fMmiALRE 


#2 


UPERT BATIMENT HUMICITE 22-18-85 3 


SCT # 
[a 
{ REGLE $ ? 


C E 
Î F 
2 SI EAUX INTERIEURES 

3 ET HUMIDITE EN PARTIE LA FLUS BRSSE CU BATIMENT 
4 ET SQL FFOIC ET HUMIDE 

= PARCEQUE L'HUMICITE VIENT DE LA HAPPE PHREATIQUE 
€ ALORS Hi 


a : FREGLE 6 ! 

9 SI INTERIEUR DES FACACES HUMIDES 

14 ETHOH HUMICITE EH PARTIE LA FLUS ERÈSE DU EATIMENT 
11 ET HUMIDITE LOCALISE 

2 FERCEQUE L'EAU CE PLUIE S’IHFILTRE DAHS LA FACACE 
13 ALORS H3 


14 :5 
15 
SCR # 

à « EXFERT BATIMENT HUMICITE 214-865 9 

1  RECLE ? à 

2 SINOH EAUX FEPPRTIES 

3 ET INTÉRIEUR DES FACADES HUMICES 

4 FARCEGUE L'EAU CE RUISSELLENENT EXTEPIEURE REMOHTE EH FACALCE 
5 ALORS HE ! 


« FEGLE 8 ? 

GINON EAUX REPARTIES 

ET FEVETEMENT MURAL DEGFALE 
ALORS H2 

£ FREGLE 9 à 

SI EAUX FEPARTIES 

ET FREVETENENT MURAL DECRACE 
ALORS Hi 


EN de 69 des D 


mem 
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# 34 

€ EXFERT BATIMENT HUMIDITE 23-19-85 
( FEGLE 19 ) 

SI FEYETENMENT MURAL DEGRALDE 

ET HUMICITE EH PARTIE LA PLUS HAUTE QU BATIMENT 

ET INTERIEUR DES FACACES HUMIDES 

ALORS H7 


(€ REGLE 11 

SI REVETENENT MURAL DEGPACE 

ET HUMIDITE EN PARTIE LA PLUS HAUTE DU BATIMENT 
ETHON INTERIEUR DES FACADES HUMIDES 

ALORS H£€ 


ee 
jo 


# 25 

< EXPERT ERTINENT HUMICITE 23-18-85 2 
€ REGLE 12 ? 
SI EAUX INTERIEURES 

ET SEHSATIOH HUMILE EH PIECE FROIDE 

ALORE H1 


{ FEGLE 13 2 

S1 EAUX EXTERIEURES 

ET SEHEATIOHN HUMICGE EH PIECE FROIDE 
ALORE H3 


FEGLE 14 2 
EAUX INTERIEURES 


6 
ET PLINTHES POURRIES 


# SE 

C EXFERT EATIMENT HOMICITE 23/1985 3 
{ FEGLE 15 2 

CI EAUX EXTERIEURES 

ET PLIMTHES POURRIES 

ALORS H2 


( RECLE 156 2 
SI SENSATION HUMIDE EN PIECE CHAUDE 
ALOSS H4 


{ REGLE 17 2 

SI EAUX REPARTIES 

ETHOH HUMIDITE EN PARTIE LA PLUS BASSE OU EATIMENT 
ET RÉNERENENT MURAL DEGRADE 

ALORS HS 


# T7 
© ESPERT EATIMENT HUMICITE 23/10/75 à 
« RECLE 14% 

SI ERUX REFARTIES 

ET FEVETEMENT CE SOL DEGPACE 

ALORS H1 


 FEGLE 19 

SI EAUX REPARTIES 

ET EXTERIEUR EAS LES FACADES HUMIDES 
ALORS H1 


{ FEGLE 29 ? 

SIHOH EAUX PREPAETIES 

ER IEnS PAS DES FACALES HUMIDES 
FLOEE HE 


# 2 

À ESFERT BATIMENT HUMIDITE 2/10-85 ? 
( REGLE 21 : : 

31 EXTERIEUR HAUT DES FACADES HUMIDES 

ALORS H? 


* REGLE 22 

SI EXTERIEUR BAS DES FACACES HUMIDES 
ET HUMIDITE LOCALISE 

ALORE H3 


{ FRESLE 283 
SI EAUX REPARTIES 


“ ET OCEUR CE MOISI CAHS UHE PIECE 
? ALORS H1 
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32 
EYPERT BATIMENT HUMIDITE 
REGLE 24 ? 

31 FISSURATIONS DES FACACES 
ALORS HS 


{ FEGLE 85 ) 


HA 


CI SENSATION FROIDE VEHANT CES FRCADES 


ALORS H4 
 REGLE 26 ) 


SI BUEE IHSISTANTE SUR MURS ET FENETRES 


ALORS H4 


Ed 
LES 


# 46 

€ EXFERT EATIMENT HUMICITE 
( RECLE 27 ) 

SI FOHDS C'ARMOIRES HUMILCES 
ALÛURS H4 


[ REGLE 28 ? 
SI TACHES SUR COFFRES E ÉUI 
RLORS H5 


€ REGLE 29 ) 


Le 


ALORS H3 . 


. REGLE 30 2 
3] TACHES “et PLAFOND 
ALORS HE 


{ REGLE 31 


# 41 

€ EKFERT SRAENT HUMICITE 
c 

<. 


SI TACHE(S> EH FLANCHER CES COMBLES 


ALORS HE 
( RECLE S2 : 


SI HUNIOITE EH SOUS-FACE CE COUVERTURE 


ALORS HE 


:C 
+ 


# 42 
( ENPERT BATIMENT HUMIDITE 
€ FEGLE 22 ) 


S1 HUMIDITE AU COIH DE FLAFOND D’UHE PIECE 


ALORS H? 


« RECLE 34 à 
SI GOUTTIERE DEEORCE 
ALOFE H? 


is 


# 42 ' 

c EXPERT BATINENT HUMICITE 

SI H1 

ETACTION DEA 

ALORSHYP DRAIH PERIPHERIQUE 
EI HS 

ETACTION FACADE 

ALORCSHYP REFECTIOH EHCUITES 

SI H4 

ETACTIOH ISOL-VENTIL 


RLORSHYP ISOLATION VENTILATION 


SI HE 
ETACTIOH TOITURE 
ALORSHYF REFECTION TOITURE 
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St HUMIDITE EH PLAFOHD FRES D'UNE, CLOISOH 


22-19-85 2 


23/19/95 ) 


22/19/85 : 


23/14/85 2 


€! 


Ce) 
bac) 


IR # 44 
€ EXFERT BATIMENT HUMIDITE 

EI H7 

ETACTION CHEHEAUX 

ALORSHYP METTOYACE CHENEAUX 

SI Hè 

ETACTION COUPURE 

ALORSHYP COUPURE HYDRAULIQUE 
SI HS 

ETACTIOH FUITE 

ALORSHYP REFECTION TUYAUTERIES 
FAIT 


1 
2 
3 
d 
ë 
7 
9 
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MUMPS par Yannick LE GRAS 


LA COMMANDE DE BOUCLE 


À) La commande FOR 


Cette commande doit retenir votre attention, car c’est l'un des outils les 
plus utilisés lors de la programmation en MUMPS, Cette commande, comme toutes 
les autres, ne s'applique qu'à la ligne dans laquelle elle se trouve, Plus 
clairement, la commande FOR permet de répéter les instructions suivant 
l'instruction FOR, ceci un nombre de fois connu où non, D'autre part, la 
commande FOR peut être utilisée avec ce qu’on appelle, dans d'autres 
langages, des variables discrètes. Afin de ne pas faire des Kilomètres de 
prose, il est plus simple d’analvser les trois types d'utilisation de la 
commande FÜR, La forme abrégée de la commande FOR est : F : 


F NB=<8:2:8 W ! ,NB 


L'exécution de cette ligne produit l'affichage suivant : 


En clair, on demande à la machine de maintenir un compteur ordinal 
commencant à la valeur 6, puis s’incrémentant avec un pas de 2 jusqu’à la 
valeur maximale 8, et à chaque passage, d'écrire sur l'écran à la ligne 

suivante la valeur de NB, 


F NB=1:2 GiNB>6 W !,NE 


Le résultat produit est : 


Cette fois-ci, nous avons demandé une boucle sans fin avec un incrément de 


la variable NB à chaque passage égal a 2, L'arrêt de cette boucle est réalisé 


grâce à la commande Q (QUIT) postconditicnnée par le test NB supérieur à 8. 


F NB=16, "BONJOUR" , "MONSIEUR" ,28 W ! ,NB 


Surte page AS 
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FORTHI Chainage de vocabulaire FIG-Forth par Michel ZUPAN 


Le FIG-Forth permet de structurer le Si nous écrivons 
dictionanire du langage en plusieurs vocabulai- Voc3 ALSO VOCi pour l'accès à VOCZ 
res selon un modèle arborescent qui semble par- sous Voc3 | 
fois rigide une fois fixé. 11 n'en est rien: il VoC1 VOC2 ALSO FORTH 
est parfaitement envisageable de ré-organiser VOC3 ALSO VOC2 
un dictionnaire selon des besoins contradictoi- 

: F : DÉFINITIONS 
res tels que compilation et exécution. 
notre problème est résolu puisque nous 

Rappelons que deux vocabulaires sont sons de la structure suivante: 
accessibles: le vocabulaire courant où s'ajou- 
tent les nouvelles définitions et le vocabulai- 
re de contexte où s'effectuent les recherches, 
avec cette réserve qu'une définitin deux-points 
force le contexte au courant, tandis que 
DÉFINITIONS fait simplement l'opération inver- 
se. 


Les chaïinages sont réalisés par Îles 
champs paramètres des en-têtes de vocabulaires 
créés par VOCABULARY. Ces mots contiennent suc- 
cesivement : 


PFA : renvoi au DOES> de VOCABULARY 
PFA+2 : NFA 8146 de mot fictif pointé par 
le LFA du premier mot d'un vocabu- 
laire secondaire. 
PFA+4 : LFA du mot fictif pointant le der- Si nous écrivons encore 
nier mot du vocabulaire défini et 
éventuellement pointé par CONTEXT. vOC1 VOC2 ALSO VOCI 
PFA+6 : chaînage VOC-LINK. nous obtiendrons: 


Le mot ALSO (€ ---) va permettre de 
modifier ces liens de façon très simple. 
S'utilisant sous la forme 
VOC2 ALSO VOCI 


il réalise le chaïnage de VOCI à VOC2 avec un 
vocabulaire de contexte devenant la suite des- 
cendante 


VOC2Z - VOCI - ... - FORTH 


appliquons ALSO à un exemple comple- 
xe. Supposons un dictionnaire ainsi organisé, 
tous vocabulaires immédiats: 


Enfin VOC3 ALSO FORTH rétablira la 
configuration initiale, plus efficace à l'exé- 
cution. 


La définition d' ALSO est simple 
dans son principe, mais comporte plusieurs sé- 
curités: 


- le mot objet de ALSO doit être un vocabulai- 

re. 

- nous conseillons une règle d'ordre pour in- 
terdire toute création d'un serpent se mordant 
la queue avec recherche infinie. 

- le vocabulaire de contexte ne doit pas être 
vide. 


Nous avons utilisé le quasi-standard 
- ABORT" (€ flag --- ) dont voici au besoin une 
Si nous devons définir dans VOC3 des définition: 
mots faisant de fréquents appels aux mots de | 
VOC2, il faudra répéter dans ces définitions 
des séquences { ABORT" € flag --- ) 
?COMP 
VOCI VOC2 ... VOC3 ... ; (COMPILE) 1F 


COMPILE CR 
L'appel de VOCI1 avant VOC2 étant re- [COMPILE] .” 


quis pour avoir accès au mot VOC2 lui-même dé- COMPILE ABORT € ou COMPILE SP! 
fini dans VOCI. COMPILE QUIT ) 


Précisons ici à cet égard qu'il est MEDIATE THEN 


toujours préférable de définir un vocabulaire 
dans la racine FORTH, comme en F-79 (79-Stan- 
dard), quitte à effectuer des chaînages ulté- 
térieurs. : 
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SCRN# 75 


€ @) © ALSO : FIG VOCABULARIES CHAINING M.ZUPAN dec.85 ) 
€ 1) FORTE DEP RIETIONS pEa st s 

€ 2) : A vocabulary a 

( 3) [COMPILE] ’ DUP @ [ ’ FORTH @ ] LITERAL = 
€ 4) @= ABORT* sue RENrART ALSO ERROR * 

{ 5) 2+ CONTEXT 8 2DUP 2- 

€ 6) ©= ABORT* EQUAL OR UPPER ALSO ERROR * 

€ 7) ® DUP @ AO8! 

€ 8) # ABORT" EMPTY CONTEXT ALSO ERROR’ 

€ 9) BEGIN DUP PFA LFA @ DUP & A081 = 

(18) @z WHILE SWAP DROP REPEAT 

(11) DROP PFA LFA ! ; IMMEDIATE 

(12) DECIMAL :S 

(13) 

(14) 

(15) 


Référence bibliographique : 


FORTH par W,P, SALMAN, D, TISSERAND, B, TOULOUT 
Editions EYROLLES 1983 


Dans ce cas la variable NB prendra, tour à tour, les valeurs suivantes : 


16 
BONJOUR 
MONSIEUR 
28 


Note : Il est possible d'imbriquer plusieurs boucles FOR sur une même ligne, 
L‘incrément mentionné peut être négatif. 


Attention ! 4 la rencontre d’un ordre -QUIT dans une boucle FOR, 
l‘interpréteur MUMPS abandonne la boucle courante, 


MÜMRE, de part sa ouissance, permet Je miier les trcis formes de FOR, Sins, 
T est possible d'écrire la ligne suivante : 


F NB=5:5:25,14:-2:6 "BONJOUR" 240 2:12: W ONE," " 
L'esécution produira à l‘écran le résultat ci-dessous: 

F 14 15 29 25 14 9 4 SONJouR 248 2 3 4 
Autre ligne, autre résultat 


5 VAR="" F NB=l:1:3 5 HARSUSR_'A" F Jei:1:NB $ LéReUSE_ te 


" + / : 
pres l'exécution de cette rigr 


la Variable LR contient: ABSEBAREE 


du 


B3 GOTO ET QUIT DANS LES BOUCLES FÜR 


Nous vous ranpelons Que l'interprétour MUMES ne trauaitle que eur des lignes 
dé commanges, Aütrement dit 


\ À la “encontre d'un Srare GÙTO, 14 ligne 
courants est abandonnée, l'exfcurior ect resrise à l'étiquette où à Ja 


routine specifiée, 8j cet ordre apparait dans une boucle FÜR, celle-ci est 
interrompue, Nos vous Cafpslonz que l'ordre QUIT, dans une boucle FOR, 
Stoppe celle-ci, Far conséquent, si un AUIT ect mentionné dans une ligne ne 
comportant qu'une seule houcie FOR, l'exécution continuera à a ligne 
suiyante, 


Fécrengne le dernier sxemple du paragraphe précédent en * insérant un ordre 
qui T 


MES! 3113 S UeP= Ep se PO GIUINE 5 s=ap "ep" 
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© Nous allons détailler l'exécution de ces deux lignes de commandes : 


- âtiribution de la chaîne vide à la variable VAR 
- Exécution d’une baucle permettant trois passages : 
- Concaténation de l'ancien contenu de la varian'e UAR avec le caractère À 


- Exécution d’une boucle sans fin 


= âbandon de la boucie sans fin lorsque J est supérieur à NB - 
- Concaténation de l’ancien contenu de la-variable VAR avec Île caractère B 
- Affichage sur l'écran, à la ligne suivante, du contenu de la variable VAR 


Rappel ! La commande QUIT n'ayant pas d'argument, elle doit être 


Compléments 


LES PREMIERS PAS 


10 LOAD pour charger les mots tesi que 
CASE etc... 

20 LOAD 

41 LOAD pour charger FORTHLOG 


Dans un premier temps, il faut construire 
sa base de connaissances sur deux écrans con- 
sécutifs, et ensuite sa base de faits initiaux 
sur un écran. Pour finir, taper le numéro du 
premier écran de la base de connaissances, le 
numéro de l'écran de la base de faits initiaux 
et en-fin le mot "MOTEUR"... Bonne chance. 


LES EXEMPLES 


Exemple 1: si F1 & X3 QLORS celà entraine X4 
etc... Cet exemple propose un essai presque 
simpliste de calcul des propositions. 


cet exemple du domaine de la bota- 
autre cas de calcul des 
est tiré de l'ouveage ‘“In- 


Exemple 2: 
nique illustre un 
propositions. Il 


Exemple 3: Cet exemple issu du même 


illustre 


ouvrage, 
un cas appliqué à la logique du pre- 
mier ordre. 


SCR # 108 

@ < E18 DEFINITION STRING SIMPLIFIE à 
1 : STRING & H = 

è <BUILDS 

2 a ;  PFA +25 

4 ALLOT € PFA +4 

s DES 

E ; 

7 

8 

3 

19 : +5 Ç ——— } 

1i 32 HORD HERE COUNT 

12 1+ < 1+ DANS HBRE OCTET À DEPLAC. à 
15 SURF 

14 1- € -1 DANS ADR. DEBUT ZONE A 
15 HOUVEMENTER 

1€ FOT ROT CMOVE 

15 
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troduction aux systèmes experts”-de Mr GONDRAN. 


obligatoirement séparée du verbe qui la suit par deux esH8ces. Eu 


FORT HLoc 


Exemple 4: cet exemple présente une sélection 
de quelques rêgies liées à un problème de 
diagnostic. La base de connaissance n'est que 
la traduction en FORTHLOG, d'une petite partie 
de l'organigramme du diagnostic, 5 mm après 
injection de sécurité dans une centrale PWR 
9OOMW, cf. procédure AO notes Moroni (1982) et 
Brillon, Janin, Munier (1981). 


Exemple 5: voici un exemple qui ne relève pas 
spécialement du système expert, le calcul d'un 
bulletin de paie. Pourtant celà fonctionne et 
vous donne un net à payer ! 


CONCLUSION 


Ce langage qui tient en 7 K de mémoire et 
qui solutionne des problèmes -bien sûr simples 
- avec un temps de réponse plus qu'honorable : 
(merci FORTH!) peut être perfectionné et 
enrichi par toute personne connaissant FORTH. 
En effet, en fonction de l'application, chacun 
pourra très facilement intégrer de nouveaux 
opérateurs, et ainsi enrichir personnellement 
FORTHLOG (les écrans 34 à 41 restent disponi- 
bles). Alors à vos micros et bonne chance. 


SCOR # 12 
@ € E12 INSTRUCTION CASE ) 
1 
2 : CASE 
ce TCONMP CSF & ICSP 6 IMMECIATE 
4 
S © OF 
CS 6 ?PFRIRS COMPILE OVER COMPILE = 
ré COMPILE DERANCH HERE © ,: COMPILE 
£ CROP 7 3 IMMEDIATE 
à 
16 : ENOOF 
11 F FPAIRS COMPILE PRANCH HERE Q , 
2 SWAF 2 CCOMFILE] EMDIF € ; IMMEDIATE 
13 
14 : ENDCASE & ?PAIRS COMPILE COPOP 
1S EÉEGIH 
16 Fe CSF & = 6= 
17 WHILE 
1€ & CCCMPILEJ ENDIF 
13 REFERT 


CE 1 IMNMEDIATE 


FORTH 


Documentation manquante 
pour le Forth 83 NVSS 


Tom ALMY 


ce document explique comment utiliser 
certaines des options dont l'usage n'est pas 
expliqué dans la documentation du F83 accompa- 
gnant les supports logiciels (Laxen et Perry) 
de FORTH. 


OPERATIONS ELEMENTAIRES 
SUR LES FICHIERS DU SYSTEME 


Plusieurs fichiers peuvent être ouverts en 
une fois. Une fois un fichier ouvert, il n'est 
jamais refermé. (ce qui cause de gros problèmes 
avec CP/M -- j'y travaille en ce moment). Cha- 
que tampon de block a un pointeur vers le FCB. 
La variable utilisateur FILE pointe sur le FCB 
courant. 


FILE? -- affiche le nom du fichier courant. 


retourne le numéro de bloc le plus 
ou zéro s'il n'y a pas 


CAPACITY — 
élevé dans un fichier, 
de fichier. 


DEFAULT -- ouvre le fichier dans la ligne de 
commande utilisant FCB appelée FCB1. Aucune 
extension de fichier par défaut n'est utilisée. 


Pour ouvrir un nouveau fichier, nous de- 
vons en créer un neuf, par initialisation de 
fcb. Le vocabulaire CP/M a un FCB approprié 
nommé FCB2. 
tFCB nom FCB-ADR --- Met le nom dans FCB à 
l'adresse FCB-ADR. 


OPEN-FILE FCB-ADR --- Ouvre le fichier men- 
tionné s'il n'est déjà ouvert. Utilisé . après 
tFCB, et avant le stockage de l'adresse FCB 
dans la variable FILE. 


Les mots suivants sont très utiles pour 
une maintenance de fichier particulère. 


Crée une entrée dans le 
dictionnaire nommée ‘filename' pour des fi- 
chiers de même nom. Le fichier est ouvert, par 
conséquent, il doit exister au préalable. L'e- 
xécution du nom du fichier provoque son ouver- 
ture (si ce n'est déjà fait) et le rend fichier 
courant. Si cette entrée dans le dictionnaire 
existe déjà, alors cette commande sera sans 
effet. 


DEFINE --- filename 


OPEN --- filename Identique à DEFINE, mais le 


fichier devient courant immédiatement. 


Les mots suivants sont relatifs à la ges- 
tion de fichier du système hôte: 


DIR ES affiche la directory du disque cou- 
rant. 
CREATE-FILE blocs --- filename Crée un nouveau 


fichier d'écrans de taille nblocs. Les écrans 
sont initialisés avec des espaces. 


MORE nblocs --- Rajoute le nombre de blocs 
indiqué au fichier courant. Malheureusement, il 
fonctionne mal, car le fichier n'est JAMAIS 
fermé. Si vous fermez le fichier (par un appel 
Système approprié) alors il fonctionnera cor- 
rectement. 


SAVE adr long --- filename Sauvegarde la mé- 
moire sur le disque. Pour d'autres mots cette 
commande crée un fichier binaire exécutable. 


Les commandes suivantes sont utilisées 
pour charger des écrans depuis un autre fichier 
que le fichier courant. Voir la section Copie 
d'écran dans ce document pour les commandes 
multi-fichiers. 


FROM --- filename Réalise un DEFINE sur 
filename. Affecte le pointeur fcb, >FROM, dans 
le vocabulaire FILE vers ce fcb. Change le 
contexte de FILES. 


LOAD --- écran mot du vocabulaire FILES La 
version de LOAD charge depuis le fichier spéci- 
fié dans la variable >FROM. 


Exemple: FROM FOO.BLK 10 LOAD charge l'écran 
10 du fichier FOO/BLK. Le fichier courant est 
modifié pendant l'exécution de LOAD. Une erreur 
ne restaure pas le fichier initial. 


SUPPORT D'ECRANS COMMENTAIRES 


NDT: littéralement "Shadow Screen Support'. On 
traduira par écrans commentaires. 


Lors de l'utilisation d'écrans commen- 
taires, le fichier d'écran est effectivement 
divisé en deux parties. Le code forth est placé 
dans un écran, et son écran commentaire reçoit 
la documentation afférente. La différence entre 
les numéros d'écrans source et les numéros 
d'écrans commentaires est déterminée par 
DISPLACEMENT  ÇCun mot du vocabulaire SHADOW), 


dont le contenu est égal à CAPACITY 2/. Ceci 
signifie que le déplacement diffère en fonction 
de la taille du fichier. 

A --- Change la valeur de SCR en son équiva- 
lent écran commentaire. 


Voir les sections Copie d'écran, Edition et 
Listage, pour plus d'information concernant les 
mots du support écrans commentaires. 


COPIE D'ECRAN 


Copie d'un écran simple vers 
La copie d'écrans multiples 


COPY from to 
un fichier simple. 


est réalisée par d'autres moyens (il est plus 
uisé de décrire la technique que de définir le 
mot, et la technique ne dépend pas nécessaire- 


ment de la définition du mot!). 


HOP et CONVEY n HOP m 1 CONVEY Déplacement 
de blocks m à 1 vers les blocs m+n à 1+n. 


m 1 TO n CONVEY Déplacement des blocks m à 1 
depuis les blocs commençant à n. n doit être un 
nombre entier car il est traité par TO! 


Pour déplacer des écrans entre des fi- 
chiers, utiliser le mot FROM pour spécifier le 
fichier d'origine (et changer le vocabulaire de 
contexte en FILES) puis la version FILES de 
COPY et CONVEY est utilisée. Toute erreur ne 
restaure pas le fichier courant. Exemple: 

FROM FOO.BLK 2 3 TO 10 CONVEY  FORTH 
déplace l'écran 2 du fichier FOO.BLK vers l'é- 
cran 10 du fichier courant, et l'écran 3 du 
fichier FOO.BLK vers l'écran 11 du fichier 
courant. 


: Dans le vocabulaire SHADOW, CA copiera 
l'écran courant (celui spécifié par la variable 
SCR) en son écran écran commentaire. Ainsi, les 
mots COPY et CONVEY copieront les écrans et 
leurs écrans commentaires associés dans un 
fichier. Les mots copiant les écrans et leurs 
écrans commentaires sont laissés à titre d'e- 
xercice au lecteur. 


LISTAGE ET AFFICHAGE 


VOCS --- Liste tous les vocabulaires. Les 
vocabulaires sont chainés manière identique au 
FIG-Forth. 

ORDER --- Affiche l'ordre de recherche (schéma 


des vocabulaires dans ALSO ONLY). 


nn à 


Teri N° 24 mar 138€ 


17 


18 


WORDS --- Liste les mots du vocabulaire de 
contexte. Les variables 
LMARGIN et RMARGIN spécifient les marges gauche 
et droite de ce listage. 


nées. 


L --- Liste les écrans (spécifiés par la va- 
riable SCR). 


LIST n --- Met l'argument spécifié dans SCR, 
puis liste l'écran. 

N --- Ecran suivant (incrémente SCR). 

B --- Ecran précédent (décrémente SCR). Voir 
aussi "A" dans la section ECRAN COMMENTAIRE. 
TRIAD --- Oubliez l'existence de ce mot. 

INDEX n m --- Liste la première ligne des 


écrans n à m. 


IND n --- {dem INDEX, mais depuis l'écran n 
jusqu'à la fin du fichier. 


Taper sur Control-P pour activer et désactiver 
l'imprimante. 


Un jeu de définitions spécial permet l'im- 
pression sur une imprimante 132 colonnes. Dans 
ce cas, les écrans sont imprimés simultanément 
par paires. Les écrans vides ne sont jamais 
imprimés. L'écran zéro (valeur de la constante 
LOGO) est utilisé pour remplir la dernière 


page. 


INIT-PR --- Mot vectorisé sélectionnant la 
fonction d'impression en 132 colonnes (si né- 
cessaire). Sélectionner EPSON pour une impri- 


mante Epson MX-80 ou équivalent, dans les au- 
tres cas, choisissez vos propres commandes. 


11 sera nécessaire de recompiiler le code 
pour modifier les en-têtes/terminaisons. 


SHOW first last --- Imprime les écrans dans 
l'intervalle firts à last. 


SHOW dans le vocabulaire SHADOW imprime 
les écrans et leurs écrans commentaires asso- 
ciés les uns à la suite des autres. 


LISTING --- Imprime un listing des écrans com- 
mentaires de la totalité du fichier, ceci de- 
puis l'écran 1. 


DUMP adr len --- Réalise un dump ASCII et 
hexadécimal. La première ligne indique la posi- 
tion de dépit du premier octel de chaque Ti- 
gne, ceci pour un affichage de seize octets par 
ligne. 


DU adr ---  Réalise un dump sur 64 octets à 
partir de adr. Laisse sur la pile adr+64 pour 
une prochaine exécution de DU. 


DL NoLigne :-- Dumpe la ligne NoLigne de l'é- 
cran courant € SCR ). 


SUPPORT MULTTITACHE 
Le FORTH  NVVS a un support multi-tache 
rudimentaire. Chaque tache a sa propre pile de 
données, “HERE" et "PAD", mais reste insuffi- 
sant pour des opérations multi-utilisateurs. 


Les fonctions multi-täches ne sont actives 
seulement lors du passage du contrôle explicite 
ou lors d'opérations d'entrées/sorties (KEY 


EMIT BLOCK ou dérivées). Les mots suivants 
permettent le contrôle et la création de ta- 
ches: 

MULTI ---  EKécution en mode multi-tâches. 


Exécuter ce mot avant de créer une nouvelle 
tâche. 
SINGLE --- Arrête le mode multi-tâche. 

PAUSE --- Renvoie le contrôle; permet l'exécu- 


tion d'une autre tâche. Ce mot est défini dans 
le svstème des primitives d'entrées/sorties. 
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TYPE --- Version muiti-tâche de TYPE. A uti 
liser quand le programme source est un biock 
issu d'un disque Forth. 


LOCAL tâche adr --- adr Renvoie une tâche et 
une variable utilisateur, retourne les adresses 
des variables utilisateurs de la tâche couran- 
te. 


SLEEP tâche --- Met en sommeil la tâche spéci- 
fiée. Elle ne sera pius exécutée ultérieure- 
ment. : 


WAKE tâche --- Réveille la tâche indiquée. Si 
elle était endormie, son exécution démarre. 

STOP ---- Demande à la tâche courante de se 
mettre en sommeil. Généralement placé à la fin 


du code d'une tâche. 


TASK: taille --- Définit un mot pour de nou- 
velles tâches. La pile de retour de la tâche 
est de 100 octets, idem pour la pile de don- 
nées. 


SET-TASK: codebody taskname --- Initialise la 
tâche donnée pour exécution du code spécifié. 
Voir exemple: 


Les tâches peuvent être initialisées de 
trois manières: 


FOO taskname ACTIVATE task code ; 


exécute “task code” en tant que tâche annexe 
utilisant la tâches prédéfinie task. 


BACKGROUND taskname task code ; taskname WAKE 


crée une tâche annexe, taskname, et renvoie 
l'exécution sur le code de la tâche annexe. 


tasksize TASK: taskname 
: code task code ; 

* code taskname SET-TASK 
taskname WAKE 


est un moyen manuel de créer une tâche. 


L'EDITEUR 


C'est tout simplement une abomination, 
mais en fait, s'adapte aux affichages simpli- 
fiés. Il est basé sur l'éditeur de “"DEBUTEZ EN 
FORTH" (Starting Forth - en français aux édi- 
tions Eyrolles, NdT). Le système doit être 


configuré en fonction de votre terminal. Avec 
un peu de chance, "EDITOR nomduterminal FORTH" 
fera ce travail. Si le système ne connait pas 
votre terminal, vous devrez modifier le code 


(pas difficile ??) par adjonction des descrip- 
tions des fonctions de contrôle. Voir le pro- 
gramme source. 


L'éditeur vous demande votre ID Cidentifi- 
cation) lors du premier appel. L'identificateur 
standard est jjmmmaaiii où jj est le jour, mmm 
est le mois, aa est l'année et iii sont vos 
initiales. Lors de la modification du contenu 
d'un écran, votre cachet est rajouté à droite 
de la première ligne. Généralement, cette ligne 
est réservée au commentaire et débute par Île 
signe “barre de fraction inverse”. 


Je trouve cet éditeur innaproprié, diffi- 
cile, sujet aux erreurs de manipulations, etc.. 
Mais ci-après se trouvent les commandes qui ont 
été rajoutées par rapport au livre DEBUTEZ EN 
FORTH. 


EDIT n --- Edite l'écran n. 

ED --- Réédite l'écran pointé par le contenu 
de SCR 

WHERE --- Mot vectorisé qui peut pointer sur 


EDIT pour une auto-édition en cas d'erreur. 
Voir la section MOTS VECTORISES. 


QUIT ---  Abandonne l'éditeur. 
DONE --- Identique à QUIF, mais met à jour le 
cachet de marquage de l'heure. 


— 


si 


C n --- Mouvement relatif de caractère dans 
une ligne. 


+T n --- Mouvement relatif de ligne. 


TOP --- Identique à "“O T*. 


sertion et de recherche. 


KEEP --- Met la ligne courante dans le tampon 
d'insertion. 


K --- Echange le contenu des buffers de re- 
cherche et d'insertion. 


W --- Raccourci pour "“SAVE-BUFFERS". 


N --- Ecran suivant. Met à jour le cachet de 
marquage horaire. 


B --- Ecran précédent. Met à jour le cachet de 


marquage horaire. 


O --- Fonctionne comme I, mais surimprime le 
texte 
SPLIT --- Fait une césure de ligne à la posi- 


tion courante du curseur. 


JOIN --- Fait une copie de la ligne suivante 
après la position courante du curseur. 


G scr line --- prends line et l'insére au 
début de la ligne de scr après BRING. Prélève 
plusieurs lignes. 


BRING Sscr first last --- Prélève plusieurs 
lignes. 
JUST --- Identique à TILL mais n'inclut pas 


l'effacement de la chaîne. 


KT --- Comme TILL, mais n'efface pas le texte. 


NEW n --- Démarre la surimpression de lignes, 
à partir de la ligne n, ceci tant qu'une ligne 
vide n'est pas tapée. 


SHADOW. G --- Prend la ligne depuis un écran 
commentaire. 
SHADOW BRING --- Prends des lignes depuis un 


écran commentaire. 


FROM filename G --- Prends une ligne depuis le 
fichier filename. 


FROM filename BRING --- Prends des lignes 
depuis le fichier filename. 


MOTS VECTORISES 


Utilisez ces commandes pour des mots vec- 
torisés. 


DEFER nom --- Définit un mot en tant que mot 
vectorisé. 


IS " mot IS nom permet l'exécution de "mot 
lors de l'exécution du mot vectorisé. 


IS est un mot immédiat, dépend donc de 
l'état. Dans une définition ‘“deux-points" , 
utiliser ‘ entouré des crochets carrés. 


LES VARIABLES UTILISATEUR 


Les variables utilisateur sont allouées en 
tant que variabies locales pour chaque tâche. 
Chaque tâche travaille avec sa copie de varia- 
bles utilisateur. 


Le nombre maximum de variables utilisateur est 
spécifié lors de la compilation. Aucun mot 
particulier ne peut être rajouté et employé. 
Les mots peuvent être rajoutés pour d'autres 
tâches. 


voici un bogue dans le code qui peut être 
corrigée comme suit: 


" CREATE USER ‘ CREATE >BODY ! FORTH 


#USER --- Une variable qui indique le nombre 
d'octets contenus dans la zone variable utili- 
sateur. 


USER --- Vocabulaire contenant les mots sui- 
vants: 


DEFER --- Version en variable utilisateur du 
mot Forth DEFER. 


VARIABLE --- Votre variable utilisateur com- 
mune. 
CREATE --- Version utilisateur de CREATE. 


Utilisé par DEFER et VARIABLE. 


ALLO] --- Alloue de l'espace dans la zone 
utilisateur. 


LE DEBOGUEUR 


Un seul mot peut être “débogué” (tracé) à 
la fois. Ce doit être un ,ot de type ‘"“deux- 
points" ou un ,ot Vvectorisant une définition 
"deux-points". N'essayez pas de déboguer d'au- 
tres types de mots. 1l ne fonctionnera pas et 
le système se plantera problablement. 


Pour déboguer un mot, exécuter “DEBUG 
mot". Lors de l'exécution de ce mot, le pro- 
gramme débogueur sera appelé automatiquement. 
Vous pouvez alors visualiser la définition pas 
à pas. Les commandes sont: 


C - affichage continu (taper autre chose que 
C, F, où Q pour en sortir). 

F - entrée dans l'interpréteur FORTH. Exécuter 
RESUME pour continuer. 

Q - abandonner le déboguage de ce mot. 

toute autre touche - un pas. 


FACILITE D'EXPLORATION 


Vous pouvez explorer la définition de tout 
mot (à condition que le fichier source soit 
présent) par exécution de "VIEW mot". Vous 
pouvez explorer la définition de mots définis 
dans le fichier courant, mais la visualisation 
de la définition de mots appartenant à d'autres 
fichiers doit être réalisée en prenant cer- 
taines précautions: 


1. Le fichier à “explorer” doit avoir une en- 
trée dans le catalogue réalisée à l'aide des 
mots DEFINE ou OPEN. 


2: “n  VIEW= C!" pour spécifier le numéro du 
fichier courant à explorer. Il doit être com- 
pris dans l'intervalle 1 - 15, mais 1 à 4 sont 


utilisés par le système pour les fichiers source 
du système. 


3 ae * filename >BODY 40 + C!" associe le 
numéro de port avec le fichier, ainsi lors de 
la sélection du fichier, les nouvelles défini- 


tions ont un numéro de fichier correct. 


4. “ " filename VIEW-FILES n 1- 2x + 1” provo- 
que l'association du fichier avec le numéro de 
port (nécessaire pour la commande d'explora- 
tion). 


5. Maintenant, chargez les définitions depuis 


le fichier, et ensuite (probablement) sauvegar- 
dez le système sur le disque. 


.I1 y à aussi la commande “SEE nom" pour 
décompiler les mots. Il ne requiert pas la 
présence du disque. 


MOTS SUPPLEMENTAIRES DU NOYAU 


Il y a dans le F83 des mots complémen- 
taires au standard qui peuvent se révéler trés 
utiles dans les programmes. Pour cause, l'uti- 
lisation de ces mots rend le programme non 
standard en regard du F83. 
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Opérateurs mathématiques: 


2*x 8x U2/ D> O(= O<= >= <= U>=- U> U<= s'expli- 
quent tout seuls. 

O0<> <> où "<>" signifie “non égal à". 

WITHIN n min max --- min <= n < max 

BEETWEN n min max --- min <= n <= max. 

SD n --- d du fig-Forth. 


FLIP échange des octets d'un entier déposé sur 


a pile. 


UxD identique à UMx. 
MU/MOD du u --- r dq 
M/MOD dnn ---rq 
xD nn ---d 


identique au fig M/MOD. 
identique au fig M/. 
identique au fig Mx. 


Constantes et variables: 


constante ©. 
constante -1. 


FALSE 
TRUE 
Compléments de manipulation de pile et de dic- 
tionaire: 


lit et écrit sur le port E/S. 
n1 n2 n3 --- n3 ni n2 
ni n2 --- n2 
ni n2 --- n2 nil n2 
identique à FALSE SWAP ! 
identique à TRUE SWAP ! 
val adr --- logique ou 
l'adresse. 
CRESET comme CSET mais efface 
tionnés. 
CTOGGLE comme CSET mais active (XOR) 
sélectionnés. 


valeur dans 


les bits sélec- 


les bits 
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